10 POKE53280,0:POKE53281,0:PRINT"[147]";
20 POKE55,0:POKE56,96:CLR
22 DV=PEEK(186):IFDV<8THENDV=8
25 GOSUB60000
30 SYS57812"TOOLBOX 91",DV,0:POKE781,0:POKE782,192:SYS65493
40 SYS57812"CRYPTIC 91",DV,0:POKE781,0:POKE782,96:SYS65493
45 PRINT"[147]"
50 SYS49152,7,4,15,7,34,160,12
52 SYS49152,7,2,13,5,31,160,15
54 SYS49152,7,4,13,32,32,101+128,12
60 PRINTTAB(10)"[155][195][210][217][208][212][201][195] [195][210][207][211][211][215][207][210][196]"
62 PRINTTAB(10)"[163][163][163][163][163][163][163] [163][163][163][163][163][163][163][163][163]"
65 PRINTTAB(7)"1] [208]RINT [208]UZZLE
70 [153][163]7)"2] (null)RINT (null)OLUTION
75 PRINTTAB(7)"3] [211]OLVING [201]NSTRUCTIONS
77 [153][163]7)"4] (null)UZZLE VALXPLANATION
79 PRINTTAB(7)"5] [197]XIT"
80 PRINTTAB(5)"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
81 SYS49152,7,19,20,0,39,98,11
82 SYS49152,7,23,24,0,39,98+128,11
83 SYS49152,4,0:POKE198,0
85 SYS49152,3,0,0,1,14,20,160,"[208]RESS 1-5 TO SELECT.
90 [161]K$:[139]K$[178]""[167]85
95 K[178][197](K$):[139]K[179]1[176] K[177]5[167]85
100 [145]K[141]1000,2000,3000,5000,4000
105 [137]85
110 :
1000 [158]49152,10,15,4:[158]49152,6,6,7,6,30,12
1002 [158]49152,3,0,0,1,14,20,160,"(null)RINTER READY?  [Y/N]"
1005 [161]K$:[139]K$[178]""[167]1002
1010 [139]K$[179][177]"Y"[167][158]49152,5,0:[142]
1012 [158]49152,10,4,3
1015 [158]49152,7,20,23,0,39,160,14
1020 [151]214,20:[153]:[153][163]15)"CONT(null)RINTING..."
1025 [158]24576:[158]49152,5,0:[142]
1030 :
2000 [158]49152,10,15,4:[158]49152,6,7,8,6,30,12
2002 [158]49152,3,0,0,1,14,20,160,"(null)RINTER READY?  [Y/N]"
2005 [161]K$:[139]K$[178]""[167]2002
2010 [139]K$[179][177]"Y"[167][158]49152,5,0:[142]
2012 [158]49152,10,4,3
2015 [158]49152,7,20,23,0,39,160,14
2020 [151]214,20:[153]:[153][163]15)"CONT(null)RINTING..."
2025 [158]24576[170]3:[158]49152,5,0:[142]
2030 :
3000 [153]"LIST":[158]49152,13,DV,[198]("\"),"CRYPTIC INSTR 91"
3005 [158]49152,5,0:[142]
3010 :
4000 [158]49152,10,15,4:[158]49152,6,10,11,6,30,12
4002 [158]49152,3,0,0,1,14,20,160,"ATNRE (null)OU (null)URE?  [Y/N]"
4005 [161]K$:[139]K$[178]""[167]4002
4010 [139]K$[179][177]"Y"[167][158]49152,5,0:[142]
4012 [151]55,0:[151]56,160:[156]
4050 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER%:[160]15
4055 [139]ER%[179][177]63[167][128]
4060 [151]646,[194](53281)
4062 [153]"LOADWAITLOAD"[199](34)"HELLO CONNECT"[199](34)",8"
4065 [153]"RUN"
4075 [151]631,13:[151]632,13:[151]633,13:[151]198,3:[128]
4080 :
5000 [153]"LIST":[158]49152,13,DV,[198]("\"),"EXPLANATION 91"
5005 [158]49152,5,0:[142]
5010 :
10000 [159]15,8,15,"S0:CRYPT BOOT 91":[160]15:[148]"CRYPT BOOT 91",8:[128]
60000 [151]214,8:[153]:[153][163]6)"FORLEN (null) (null) (null) (null) RIGHT$ LEN   LEN (null) (null) (null) VAL (null)"
60005 [153][163]8)"CONTATN (null)UZZLE FOR THE (null)ROLLEY"
60009 B9$[178]"                                      "
60010 [151]214,14:[153]:[153]"  LISTFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREFREPRINT#"
60020 [129]I[178]0[164]7:[153]B9$:[130]:[153]"  POKEPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPOSPRINT#"
60030 B9$(0)[178]"LEN (null) (null) (null) (null) RIGHT$ LEN    LEN (null) (null) (null) VAL (null)"
60040 B9$(1)[178]"BY ASCENDER (null)UCKER & PEEKARBARA (null)CHULAK"
60050 B9$(2)[178]"(LEN) 1991 BY (null)OFTDISK, RIGHT$NC."
60060 B9$(3)[178]"(null)UBLISHED ON (null)(null)ATNSTR$(null)(null)ATN(null) #91"
60070 B9$(4)[178]"(null)UBSCRIPTIONS 1-800-831-2694"
60080 B9$(5)[178]"ATNLL (null)IGHTS (null)ESERVED"
60090 [151]214,16:[153]:[129]I[178]0[164]5:[153][163]20[171]([195](B9$(I))[173]2))""B9$(I):[130]
60099 [142]